home *** CD-ROM | disk | FTP | other *** search
/ Chip 2005 August (Alt) / CHIP 2005-08.1.iso / program / guvenlik / syslinux-3.07.exe / keytab-lilo.pl < prev    next >
Encoding:
Perl Script  |  2003-06-30  |  2.9 KB  |  112 lines
  1. #!/usr/bin/perl
  2. # --------------------------------------------------------------------------
  3. # This program was taken from the LILO-20 distribution; only this header
  4. # was added.
  5. #
  6. # LILO program code, documentation and auxiliary programs are
  7. # Copyright 1992-1997 Werner Almesberger.
  8. # All rights reserved.
  9. #
  10. # Redistribution and use in source and binary forms of parts of or the
  11. # whole original or derived work are permitted provided that the
  12. # original work is properly attributed to the author. The name of the
  13. # author may not be used to endorse or promote products derived from
  14. # this software without specific prior written permission. This work
  15. # is provided "as is" and without any express or implied warranties.
  16. # --------------------------------------------------------------------------
  17.  
  18. eval { use bytes; }; eval { binmode STDOUT; };
  19.  
  20. $DEFAULT_PATH = "/usr/lib/kbd/keytables";
  21. $DEFAULT_MAP = "us";
  22. $DEFAULT_EXT = ".map";
  23.  
  24. sub usage
  25. {
  26.     print STDERR
  27.       "usage: $0 [ -p old_code=new_code ] ...\n".
  28.       (" "x(8+length $0))."[path]default_layout[.map] ] ".
  29.       "[path]kbd_layout[.map]\n";
  30.     exit 1;
  31. }
  32.  
  33.  
  34. while ($ARGV[0] eq "-p") {
  35.     shift(@ARGV);
  36.     &usage unless $ARGV[0] =~ /=/;
  37.     $table[eval($`)] = eval($');
  38.     shift(@ARGV);
  39. }
  40. &usage unless defined $ARGV[0];
  41. load_map("def",defined $ARGV[1] ? $ARGV[0] : undef);
  42. load_map("kbd",defined $ARGV[1] ? $ARGV[1] : $ARGV[0]);
  43. &build_table("plain","shift","ctrl","altgr","shift_ctrl",
  44.   "altgr_ctrl","alt","shift_alt","ctrl_alt");
  45. for ($i = 0; $i < 256; $i++) {
  46.     printf("%c",$table[$i] ? $table[$i] : $i) || die "print: $!";
  47. }
  48. close STDOUT || die "close: $!";
  49.  
  50.  
  51. sub load_map
  52. {
  53.     local ($pfx,$map) = @_;
  54.     local ($empty,$current);
  55.  
  56.     $map = $DEFAULT_MAP unless defined $map;
  57.     $map = $DEFAULT_PATH."/".$map unless $map =~ m|/|;
  58.     $map .= $DEFAULT_EXT unless $map =~ m|/[^/]+\.[^/]+$|;
  59.     if (!open(FILE,"loadkeys -m $map |")) {
  60.     print STDERR "loadkeys -m $map: $!\n";
  61.     exit 1;
  62.     }
  63.     undef $current;
  64.     $empty = 1;
  65.     while (<FILE>) {
  66.     chop;
  67.     if (/^u_short\s+(\S+)_map\[\S+\]\s+=\s+{\s*$/) {
  68.         die "active at beginning of map" if defined $current;
  69.         $current = $pfx.":".$1;
  70.         next;
  71.     }
  72.     undef $current if /^};\s*$/;
  73.     next unless defined $current;
  74.     s/\s//g;
  75.     $map{$current} .= $_;
  76.     $empty = 0;
  77.     }
  78.     close FILE;
  79.     return unless $empty;
  80.     print STDERR "Keymap is empty\n";
  81.     exit 1;
  82. }
  83.  
  84.  
  85. sub build_table
  86. {
  87.     local (@maps) = @_;
  88.     local (@tmp);
  89.  
  90.     $set = 0;
  91.     for $map (@maps) {
  92.     $code = $set;
  93.     for (split(",",$map{"def:".$map})) {
  94.         die "bad map entry $_ (def, map $map)" unless /^0x\S\S(\S\S)$/;
  95.         $tmp[$code] = hex $1 unless $tmp[$code];
  96.         $code++;
  97.     }
  98.     $set += 256;
  99.     }
  100.     $set = 0;
  101.     for $map (@maps) {
  102.     $code = $set;
  103.     for (split(",",$map{"kbd:".$map})) {
  104.         die "bad map entry $_ (kbd, map $map)" unless /^0x\S\S(\S\S)$/;
  105.         $table[$tmp[$code]] = hex $1 unless $table[$tmp[$code]];
  106.         $code++;
  107.     }
  108.     $set += 256;
  109.     }
  110.     $table[0] = 0;
  111. }
  112.